0 REM ATOMIC TABLE INFORMER
1 REM VERSION 1.0 BY LENOLONEL(null)OM
3 DIMPT$(103,10)
5 POKE53280,0:POKE53281,0:POKE646,3:PRINTCHR$(8)CHR$(14)
10 PRINT"[147][208]ERIODIC [212]ABLE"
15 PRINT"[211]ETTING UP TABLE DATA IN MEMORY..."
20 GOSUB 4960
25 PRINT"                                        "
30 PRINT"[208]LEASE CHOOSE A FUNCTION..."
35 PRINT:PRINT"[158][F1][159] [211]EARCH BY [193]TOMIC [206]UMBER"
40 PRINT:PRINT"[158][F3][159] [211]EARCH BY [211]YMBOL"
41 PRINT:PRINT"[158][F7][159] [209]UIT"
45 GETZ$:IFZ$<>"[133]"ANDZ$<>"[134]"ANDZ$<>"[136]"THEN45
50 IFZ$="[133]"THENGOSUB3000
55 IFZ$="[134]"THENGOSUB4000
57 IF Z$="[136]"THENGOTO 10000
60 GOTO 25
3000 REM SEARCH BY ATOMIC NUMBER
3005 PRINT"[147][208]ERIODIC [212]ABLE"
3010 INPUT"[208]LEASE ENTER [193]TOMIC [206]UMBER";AN
3015 IFAN<1ORAN>103THENPRINT"[206]O SUCH ELEMENT!!!":FORZQ=1TO2000:NEXTZQ:GOTO 3000
3016 POKE53265,PEEK(53265)AND239:POKE56325,255
3018 X=AN
3020 PRINT"[147]"TAB(13)"[208][197][210][201][207][196][201][195] [212][193][194][204][197]"
3022 PRINT:PRINT"[193]TOMIC [206]UMBER:[158] "X;TAB(20)PT$(0,0)" "PT$(X,0)
3024 PRINT:PRINTPT$(0,1)" "PT$(X,1):PRINT:PRINTPT$(0,2)" "PT$(X,2)
3025 PRINT:PRINT:PRINTPT$(0,3)" "PT$(X,3)
3027 PRINT:PRINTPT$(0,4)" "PT$(X,4);TAB(20)PT$(0,5)" "PT$(X,5)
3030 PRINT"":PRINT:PRINTPT$(0,6)" "PT$(X,6):PRINTPT$(0,7)" "PT$(X,7)
3035 PRINT:PRINTPT$(0,8)" "PT$(X,8):PRINTPT$(0,9)" "PT$(X,9):PRINTPT$(0,10)" "PT$(X,10)
3037 PRINT
3040 PRINT"[159][208]RESS [158][[193]][159] TO FIND ANOTHER ELEMENT OR [158][[205]][159] TO RETURN TO THE MAIN MENU
3043 [151]53265,[194](53265)[176]16:[151]56325,46
3045 [161]Z$:[139]Z$[178]"A"[176]Z$[178]"M"[167]3055
3050 [137] 3045
3055 [139]Z$[178]"A"[167]3000
3060 [139]Z$[178]"M"[167][153]"LOAD":[142]
4000 [143] SEARCH BY SYMBOL
4005 [153]"LOAD(null)ERIODIC (null)ABLE"
4010 [153]:[133]"(null)LEASE ENTER ATNTOMIC (null)YMBOL";AS$
4015 [139][195](AS$)[177]2[167][153]"(null)YMBOLS ARE 2 LETTERS LONG!":[129]ZQ[178]1[164]2000:[130]ZQ:[137]4000
4020 [139][198]([200](AS$,1))[179]193[176][198]([200](AS$,1))[177]218[167]9000
4023 [139][195](AS$)[178]1[167]4040
4025 [139][198]([201](AS$,1))[179]65[176][198]([201](AS$,1))[177]90[167]9005
4035 [151]53265,[194](53265)[175]239:[151]56325,255
4040 [129]X[178]1[164]103
4045 [139]AS$[178]PT$(X,0)[167]4080
4050 [130]X
4055 [153]"VALLEMENT DOES NOT EXIST!"
4060 [153]"(null)LEASE PRESS SYS[ATN]OPEN TO TRY AGAIN, OR PRESS SYS[(null)]OPEN TO RETURN TO THE MENU."
4063 [151]53265,[194](53265)[176]16:[151]56325,46
4065 [161]Z$:[139]Z$[179][177]"A"[175]Z$[179][177]"M"[167]4065
4070 [139]Z$[178]"A"[167]4000
4075 [139]Z$[178]"M"[167][153]"LOAD":[142]
4080 [153]"LOAD"[163]13)"(null)VAL(null)RIGHT$(null)STR$RIGHT$LEN (null)ATNPEEK(null)VAL"
4085 [153]:[153]"ATNTOMIC (null)UMBER:SYS "X;[163]20)PT$(0,0)" "PT$(X,0)
4095 [153]:[153]PT$(0,1)" "PT$(X,1):[153]:[153]PT$(0,2)" "PT$(X,2)
4200 [153]:[153]:[153]PT$(0,3)" "PT$(X,3)
4205 [153]:[153]PT$(0,4)" "PT$(X,4);[163]20)PT$(0,5)" "PT$(X,5)
4210 [153]"":[153]:[153]PT$(0,6)" "PT$(X,6):[153]PT$(0,7)" "PT$(X,7)
4215 [153]:[153]PT$(0,8)" "PT$(X,8):[153]PT$(0,9)" "PT$(X,9):[153]PT$(0,10)" "PT$(X,10)
4217 [153]
4220 [153]"OPEN(null)LEASE PRESS SYS[ATN]OPEN TO TRY AGAIN, OR PRESS SYS[(null)]OPEN TO RETURN TO THE MENU."
4223 [151]53265,[194](53265)[176]16:[151]56325,46
4225 [161]Z$:[139]Z$[179][177]"A"[175]Z$[179][177]"M"[167]4225
4230 [139]Z$[178]"A"[167]4000
4235 [139]Z$[178]"M"[167][153]"LOAD":[142]
4959 [128]
4960 [143] READ HEADER
4965 [129]L[178]0[164]10:[135]PT$(0,L):[130]L
4970 [131]"OPEN(null)YMBOL:SYS","OPENATNTOMIC (null)ASS:SYS","OPEN(null)ELECTED (null)XIDATION (null)TATES:SYS"
4975 [131]"OPENETAB( LENONFIGURATION:SYS","OPEN(null)ERIOD:SYS","OPENCHR$ROUP:SYS"
4980 [131]"OPENASCIRST RIGHT$ONIZATION VALNERGY:SYS","OPENVALLECTRONEGATIVITY:SYS"
4985 [131]"OPENLENOVALENT ATNTOMIC (null)ADIUS:SYS","OPENATNTOMIC (null)ADIUS IN (null)ETALS:SYS"
4990 [131]"OPEN(null)AN DER (null)AALS (null)ADIUS:SYS"
4995 [151]53265,[194](53265)[175]239:[151]56325,255
5000 [143] SET UP PERIODIC TABLE
5001 [129]A[178]0[164]10
5002 [129]B[178]1[164]103
5003 PT$(B,A)[178]"-"
5004 [130]B:[130]A
5010 [143] READ SYMBOL
5011 [129]XX[178]1[164]103:[135]PT$(XX,0):[130]XX
5015 [131]"LEFT$","LEFT$E","(null)I","PEEKE","PEEK","LEN","(null)","(null)","ASC","(null)E","(null)A","(null)G","ATNL","(null)I","(null)","(null)"
5020 [131]"LENL","ATNR","(null)","LENA","(null)C","(null)I","(null)","LENR","(null)N","ASCE","LENO","(null)I","LENU","(null)N"
5025 [131]"CHR$A","CHR$E","ATNS","(null)E","PEEKR","(null)R","(null)B","(null)R","(null)","(null)R","(null)B","(null)O","(null)C","(null)U"
5030 [131]"(null)H","(null)D","ATNG","LEND","RIGHT$N","(null)N","(null)B","(null)E","RIGHT$","(null)E","LENS","PEEKA","(null)A","LENE"
5035 [131]"(null)R","(null)D","(null)M","(null)M","VALU","CHR$D","(null)B","STR$Y","LEFT$O","VALR","(null)M","(null)B","(null)U","LEFT$F"
5040 [131]"(null)A","(null)","(null)E","(null)S","RIGHT$R","(null)T","ATNU","LEFT$G","(null)L","(null)B","PEEKI","(null)O","ATNT","(null)N"
5045 [131]"ASCR","(null)A","ATNC","(null)H","(null)A","(null)","(null)P","(null)U","ATNM","LENM","PEEKK","LENF","VALS","ASCM"
5050 [131]"(null)D","(null)O","(null)R"
5055 [143] READ ATOMIC MASS
5060 [129]XX[178]1[164]103:[135]PT$(XX,1):[130]XX
5065 [131]1.00797,4.0026,6.939,9.0122,10.811,12.01115,14.0067,15.9994,18.9984
5070 [131]20.183,22.9898,24.312,26.9815,28.086,30.9738,32.064,35.453,39.948,39.102
5075 [131]40.08,44.956,47.9,50.942,51.996,54.938,55.847,58.9332,58.71,63.54,65.37
5080 [131]69.72,72.59,74.9216,78.96,79.909,83.8,85.47,87.62,88.905,91.22,92.906
5085 [131]95.94,98.9062,101.07,102.905,106.4,107.87,112.4,114.82,118.69,121.75
5090 [131]127.6,126.9044,131.3,132.905,137.34,138.91,140.12,140.907,144.24,(145)
5095 [131]150.35,151.96,157.25,158.924,162.5,164.93,167.26,168.934,173.04,174.97
5100 [131]178.49,180.948,183.85,186.2,190.2,192.2,195.09,196.967,200.59,204.37
5105 [131]207.19,208.98,(209),(210),(222),(223),(226),(227),232.038,231.036,238.03
5110 [131]237.048,(244),(243),(247),(247),(251),(254),(257),(256),(254),(257)
5115 [143] OXIDATION STATES
5120 [129]XX[178]1[164]98:[135]PT$(XX,2):[130]XX
5125 [131]"+1,-1","0","+1","+2","+3","-4,+2,+4","-3,-2,-1,+1,+2,+3,+4,+5","-2","-1"
5130 [131]"0","+1","+2","+3","-4,+2,+4","-3,+3,+5","-2,+4,+6","-1,+1,+3,+5,+7","0"
5135 [131]"+1","+2","+3","+2,+3,+4","+2,+3,+4,+5","+2,+3,+6","+2,+3,+4,+7","+2,+3"
5140 [131]"+2,+3","+2,+3","+1,+2","+2","+3","-2,+2,+4","-3,+3,+5","-2,+4,+6"
5141 [131]"-1,+1,+5"
5145 [131]"0,+2","+1","+2","+3","+4","+3,+5","+3,+6","+4,+6,+7","+3","+3","+2,+4"
5147 [131]"+1","+2","+3","+2,+4","-3,+3,+5","-2,+4,+6","-1,+1,+5,+7","0,+2,+4,+6"
5150 [131]"+1","+2","+3","+3,+4","+3","+3","+3","+2,+3","+2,+3","+3","+3","+3","+3"
5153 [131]"+3","+3","+2,+3","+3"
5155 [131]"+4","+5","+6","+4,+6,+7","+3,+4","+3,+4","+2,+4","+1,+3"
5160 [131]"+1,+2","+1,+3","+2,+4","+3,+5","+2,+4",-,"0","+1","+2","+3","+4","+4,+5"
5165 [131]"+3,+4,+5,+6","+3,+4,+5,+6","+3,+4,+5,+6","+3,+4,+5,+6","+3","+3,+4","+3"
6170 [143] ELECTRON CONFIGURATIONS
6175 [129]XX[178]1[164]57:[135]PT$(XX,3):[130]XX
6180 [131]"1SON1","1SON2","1SON22SON1","1SON22SON2","1SON22SON22PON1"
6185 [131]"1SON22SON22PON2","1SON22SON22PON3","1SON22SON22PON4","1SON22SON22PON5"
6190 [131]"1SON22SON22PON6","[(null)E]3SON1","[(null)E]3SON2","[(null)E]3SON23PON1"
6195 [131]"[(null)E]3SON23PON2","[(null)E]3SON23PON3","[(null)E]3SON23PON4","[(null)E]3SON23PON5"
6200 [131]"[(null)E]3SON23PON6","[ATNR]4SON1","[ATNR]4SON2","[ATNR]3DON14SON2","[ATNR]3DON24SON2"
6205 [131]"[ATNR]3DON34SON2","[ATNR]3DON54SON1","[ATNR]3DON54SON2","[ATNR]3DON64SON2"
6210 [131]"[ATNR]3DON74SON2","[ATNR]3DON84SON2","[ATNR]3DON104SON1","[ATNR]3DON104SON2"
6215 [131]"[ATNR]3DON104SON24PON1","[ATNR]3DON104SON24PON2","[ATNR]3DON104SON24PON3"
6220 [131]"[ATNR]3DON104SON24PON4","[ATNR]3DON104SON24PON5","[ATNR]3DON104SON24PON6"
6225 [131]"[(null)R]5SON1","[(null)R]5SON2","[(null)R]4DON15SON2","[(null)R]4DON25SON2","[(null)R]4DON45SON1"
6230 [131]"[(null)R]4DON55SON1","[(null)R]4DON65SON1","[(null)R]4DON75SON1","[(null)R]4DON85SON1"
6235 [131]"[(null)R]4DON105SON0","[(null)R]4DON105SON1","[(null)R]4DON105SON2"
6240 [131]"[(null)R]4DON105SON25PON1","[(null)R]4DON105SON25PON2","[(null)R]4DON105SON25PON3"
6245 [131]"[(null)R]4DON105SON25PON4","[(null)R]4DON105SON25PON5","[(null)R]4DON105SON25PON6"
6250 [131]"[(null)E]6SON1","[(null)E]6SON2","[(null)E]5DON16SON2"
6255 [129]XX[178]72[164]89:[135]PT$(XX,3):[130]XX
6260 [131]"[(null)E]4FON145DON26SON2","[(null)E]4FON145DON36SON2","[(null)E]4FON145DON46SON2"
6265 [131]"[(null)E]4FON145DON56SON2","[(null)E]4FON145DON66SON2","[(null)E]4FON145DON76SON2"
6270 [131]"[(null)E]4FON145DON96SON1","[(null)E]4FON145DON106SON1","[(null)E]4FON145DON106SON2"
6275 [131]"[(null)E]4FON145DON106SON26PON1","[(null)E]4FON145DON106SON26PON2"
6280 [131]"[(null)E]4FON145DON106SON26PON3","[(null)E]4FON145DON106SON26PON4"
6285 [131]"[(null)E]4FON145DON106SON26PON5","[(null)E]4FON145DON106SON26PON6"
6290 [131]"[(null)N]7SON1","[(null)N]7SON2","[(null)N]6DON17SON2"
6295 [143] SET PERIOD
6300 [129]X[178]1[164]2:PT$(X,4)[178]"1":[130]X
6305 [129]X[178]3[164]10:PT$(X,4)[178]"2":[130]X
6310 [129]X[178]11[164]18:PT$(X,4)[178]"3":[130]X
6315 [129]X[178]19[164]36:PT$(X,4)[178]"4":[130]X
6320 [129]X[178]37[164]54:PT$(X,4)[178]"5":[130]X
6325 [129]X[178]55[164]57:PT$(X,4)[178]"6":[130]X
6330 [129]X[178]58[164]71:PT$(X,4)[178]"6 CMDCMD((null)ANTHANIDE (null)ERIES)ON":[130]X
6335 [129]X[178]72[164]86:PT$(X,4)[178]"6":[130]X
6340 [129]X[178]87[164]89:PT$(X,4)[178]"7":[130]X
6345 [129]X[178]90[164]103:PT$(X,4)[178]"7 CMDCMD(ATNCTINIDE (null)ERIES)ON":[130]X
6350 [143] SET GROUP
6355 [129]XX[178]1[164]57:[135]PT$(XX,5):[130]XX
6360 [131]"1 (RIGHT$ATN)","18 ((null))"
6365 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","13 (RIGHT$RIGHT$RIGHT$ATN)","14 (RIGHT$(null)ATN)","15 ((null)ATN)"
6370 [131]"16 ((null)RIGHT$ATN)","17 ((null)RIGHT$RIGHT$ATN)","18 ((null))"
6375 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","13 (RIGHT$RIGHT$RIGHT$ATN)","14 (RIGHT$(null)ATN)","15 ((null)ATN)"
6380 [131]"16 ((null)RIGHT$ATN)","17 ((null)RIGHT$RIGHT$ATN)","18 ((null))"
6385 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","3 (RIGHT$RIGHT$RIGHT$PEEK)","4 (RIGHT$(null)PEEK)","5 ((null)PEEK)","6 ((null)RIGHT$PEEK)","7CLOSE((null)RIGHT$RIGHT$PEEK)"
6390 [131]"8 ((null)RIGHT$RIGHT$RIGHT$)","9 ((null)RIGHT$RIGHT$RIGHT$)","10 ((null)RIGHT$RIGHT$RIGHT$)","11 (RIGHT$PEEK)","12 (RIGHT$RIGHT$PEEK)","13 (RIGHT$RIGHT$RIGHT$ATN)"
6395 [131]"14 (RIGHT$(null)ATN)","15 ((null)ATN)","16 ((null)RIGHT$ATN)",17 ()","18 ()"
6400 DATA"1 ([201][193])","2 ([201][201][193])","3 ([201][201][201][194])","4 ([201][214][194])","5 ([214][194])","6 ([214][201][194])","7[160]([214][201][201][194])"
6405 DATA"8 ([214][201][201][201])","9 ([214][201][201][201])","10 ([214][201][201][201])","11 ([201][194])","12 ([201][201][194])","13 ([201][201][201][193])"
6410 DATA"14 ([201][214][193])","15 ([214][193])","16 ([214][201][193])",17 ()","18 ()"
6415 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","3 (RIGHT$RIGHT$RIGHT$PEEK)","4 (RIGHT$(null)PEEK)","5 ((null)PEEK)","6 ((null)RIGHT$PEEK)","7CLOSE((null)RIGHT$RIGHT$PEEK)"
6420 [131]"8 ((null)RIGHT$RIGHT$RIGHT$)","9 ((null)RIGHT$RIGHT$RIGHT$)","10 ((null)RIGHT$RIGHT$RIGHT$)","11 (RIGHT$PEEK)","12 (RIGHT$RIGHT$PEEK)","13 (RIGHT$RIGHT$RIGHT$ATN)"
6425 [131]"14 (RIGHT$(null)ATN)","15 ((null)ATN)","16 ((null)RIGHT$ATN)","17 ((null)RIGHT$RIGHT$ATN)","18 ((null))"
6430 [131]"1 (RIGHT$ATN)","2 (RIGHT$RIGHT$ATN)","3 (RIGHT$RIGHT$RIGHT$PEEK)"
6435 [129]XX[178]72[164]89:[135]PT$(XX,5):[130]XX
6440 [143] SET 1ST [201]ONIZATION [197]NERGY &             [197]LECTRONEGATIVITY
6445 [129]XX[178]1[164]20:[135]PT$(XX,6),PT$(XX,7):[130]XX
6450 [131]313,2.2,567,-,125,1.0,215,1.5,191,2.0,260,2.6,336,3.1,314,3.5,402,4.0,497
6455 [131]-,119,0.9,176,1.2,138,1.5,188,1.9,242,2.2,239,2.6,300,3.2,363,-,100,0.8
6460 [131]141,1.0
6465 [129]XX[178]31[164]38:[135]PT$(XX,6),PT$(XX,7):[130]XX
6470 [131]138,1.6,182,1.9,226,2.0,225,2.5,273,2.9,323,-,96,0.8,131,1.0
6475 [129]XX[178]49[164]56:[135]PT$(XX,6),PT$(XX,7):[130]XX
6480 [131]133,1.7,169,1.8,199,2.1,208,2.3,241,2.7,280,-,90,0.7,120,0.9
6485 [129]XX[178]81[164]88:[135]PT$(XX,6),PT$(XX,7):[130]XX
6490 [131]141,1.8,171,1.8,168,1.9,194,2.0,-,2.2,248,-,-,0.7,122,0.9
6500 [143] SET COVALENT ATOMIC RADIUS
6505 PT$(1,8)[178]"0.37"
6510 [129]XX[178]3[164]42:[135]PT$(XX,8):[130]XX
6515 [131]1.23,0.89,0.88,0.77,0.70,0.66,0.64,1.31,1.57,1.36,1.25,1.17,1.10,1.04,0.99
6520 [131]1.74,2.03,1.74,1.44,1.32,1.22,1.17,1.17,1.17,1.16,1.15,1.17,1.25,1.25,1.22
6525 [131]1.21,1.17,1.14,1.89,2.16,1.92,1.62,1.45,1.34,1.29
6530 [129]XX[178]44[164]60:[135]PT$(XX,8):[130]XX
6535 [131]1.24,1.25,1.28,1.34,1.41,1.50,1.40,1.41,1.37,1.33,2.09,2.35,1.98,1.69,1.65
6540 [131]1.65,1.64
6545 [129]XX[178]62[164]84:[135]PT$(XX,8):[130]XX
6550 [131]1.66,1.85,1.61,1.59,1.59,1.58,1.57,1.56,1.70,1.56,1.44,1.34,1.30,1.28,1.26
6555 [131]1.26,1.29,1.34,1.44,1.55,1.54,1.52,1.53
6560 PT$(86,8)[178]"2.14"
6565 [143] SET ATOMIC RADIUS IN METALS
6570 [129]XX[178]3[164]95:[135]PT$(XX,9):[130]XX
6575 [131]1.52,1.13,0.83,-,0.55,0.60,0.72,-,1.54,1.60,1.43,-,1.08,0.94,-,-,2.27
6580 [131]1.97,1.61,1.45,1.32,1.25,1.24,1.24,1.25,1.25,1.28,1.33,1.22,1.23,1.25,-
6585 [131]-,-,2.48,2.15,1.81,1.60,1.43,1.36,1.36,1.33,1.35,1.38,1.44,1.49,1.63,1.41
6590 [131]-,1.33,-,2.18,2.65,2.17,1.88,1.83,1.83,1.82,1.81,1.80,2.04,1.80,1.78,1.77
6593 [131]1.77
6595 [131]1.76,1.75,1.94,1.73,1.56,1.43,1.37,1.37,1.34,1.36,1.38,1.44,1.60,1.70,1.75
6600 [131]1.55,1.67,-,-,2.7,2.20,1.88,1.80,1.61,1.39,1.31,1.51,1.84
6605 [143] SET VAN DER WAALS RADIUS
6610 [129]XX[178]1[164]19:[135]PT$(XX,10):[130]XX
6615 [131]1.2,1.22,-,-,2.08,1.85,1.54,1.40,1.35,1.60,2.31,-,-,2.0,1.90,1.85,1.81
6620 [131]1.91,2.31
6625 [129]XX[178]33[164]37:[135]PT$(XX,10):[130]XX
6630 [131]2.0,2.0,1.95,1.98,2.44
6635 [129]XX[178]51[164]55:[135]PT$(XX,10):[130]XX
6640 [131]2.2,2.20,2.15,-,2.62
6645 [151]53265,[194](53265)[176]16:[151]56325,46
6650 [142]
9000 [153]"ASCIRST LETTER MUST BE A CAPITAL!":[129]ZQ[178]1[164]2000:[130]ZQ:[137] 4000
9005 [153]"(null)ECOND LETTER MUST BE A LOWER-CASE!":[129]ZQ[178]1[164]2000:[130]ZQ:[137]4000
10000 [143] QUIT
10005 [153]"LOADCONTOKAY!"[199](9)[199](142)
10010 [151]53280,14:[151]53281,6
10015 [156]:[128]
20000 [143] PERIODIC TABLE INFORMER
20010 [143]    UPLOADED TO QLINK
20020 [143]         9/15/90
20030 [143]     BY COLONELTOM
20035 [143]
20040 [143] ALL INFORMATION INCLUDED IN
20050 [143]   THIS PROGRAM WAS TAKEN
20060 [143]           FROM
20070 [143]   REFERENCE TABLES FOR
20080 [143]         CHEMISTRY
20090 [143]       PUBLISHED BY
20100 [143] THE NEW YORK STATE DEPARTMENT
20110 [143]       OF EDUCATION